home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / swapwords.raz < prev    next >
Text File  |  1994-08-28  |  617b  |  29 lines
  1. /** $VER: SwapWords.raz 1.1 (28.8.94)
  2.  **
  3.  ** Pour inverser un mot avec le mot précédent, en tenant
  4.  ** compte du saut de ligne et de plusieurs caractères
  5.  ** entre les mots.
  6.  **/
  7.  
  8. OPTIONS RESULTS
  9.  
  10. Cursor WORD 0       /* début du mot */
  11. Cursor WORD "-1"      /* début du texte ??? */
  12. IF (RC = 0) THEN DO
  13.  
  14.     Block BWORD STARTDO     /* efface le premier */
  15.     Block CLIP 255 ERASE
  16.  
  17.     GetPos; PARSE VAR RESULT startline startcol .
  18.  
  19.     Block WORD "1" BWORD STARTDO    /* efface le deuxième */
  20.     Block CLIP 254 ERASE
  21.  
  22.     CB2Win CLIP 255
  23.  
  24.     Cursor startline startcol
  25.     CB2Win CLIP 254
  26.     Cursor WORD "1"
  27.  
  28. END
  29.